(compare-windows): Allow windows on different frames.

diff --git a/lisp/compare-w.el b/lisp/compare-w.el
index 479bd72125e9285dd0c7cfd47888aec98d2ef6ef..bdfcd006c95ec191a31e5f083b3b7407c1f504f6 100644 (file)
--- a/lisp/compare-w.el
+++ b/lisp/compare-w.el
@@ -72,7 +72,7 @@ If `compare-ignore-case' is non-nil, changes in case are also ignored."
                             'compare-windows-skip-whitespace
                           compare-windows-whitespace))))
     (setq p1 (point) b1 (current-buffer))
-    (setq w2 (next-window (selected-window)))
+    (setq w2 (next-window (selected-window) nil 'visible))
     (if (eq w2 (selected-window))
        (error "No other window"))
     (setq p2 (window-point w2)